cr	equ	0dh
lf	equ	0ah
	org	100h
Start:	jmp	Begin
Msg1	db	'Vvedite soobchenie i najmite Enter:', cr, lf, '$'
MsgErr	db	'Oshibka!!!', cr, lf, '$'
MStr1	db	81
LStr1   db	0
StrNumb1 times	81	db	0
Begin:
	mov	ah,09h
	mov	dx,Msg1
	int	21h
	mov	ah,0ah
	mov	dx,MStr1
	int	21h
	mov	ah,02h
	mov	dl,0ah
	int	21h
	cmp	[LStr1],byte 0
	jz	.Err
	mov	bl,[LStr1]
	mov	si,bx
	dec	si
	mov	dl,[StrNumb1+si]
	cmp	dl,21h
	je	.M2
	cmp	dl,2Eh
	je	.M2
	jmp	.Err
	
.M2:	xor	cx,cx
	xor	dx,dx
	xor	si,si
	mov	cl,[LStr1]
.L1:	mov	dl,[StrNumb1+si]
	inc	si
	cmp	dl,41h
	jb	.M1
	cmp	dl,5Ah
	ja	.M1
	add	dl,20h
.M1:	mov	ah,02h
	int	21h
	loop	.L1
	jmp	.Exit

.Err:	mov	ah,09h
	mov	dx,MsgErr
	int	21h
.Exit:	mov	ax,4c00h
	int	21h
